470 & PRINT !;B$(13);@ MID$ (M$(Z),16,20),B$(14);@ MID$ (M$(Z),36,20): & END R: ON R GOTO 530,1250
475 IF NA% = 0 OR SL = >M2 THEN & PRINT !;B$(15);@ MID$ (M$(Z),56,20);" ";B$(16);@ MID$ (M$(Z),77,3)
480 & END R: ON R GOTO 530,1250: & PRINT : IF F < >1 THEN & RETURN
500 & PRINT B$(28);:B$ = "YNXQ" + CHR$(13)
510 & GET Z$: & SGNZ$: & INTB$,Z$,R: ON R GOTO 520,530,550,550,520: GOTO 510
520 MK%(Z) = 1:P = 0
530 & PRINT Z$: & RETURN
550 & PRINT Z$: GOTO 1250
590 & SCALE= HM: & GOSUB 310: ON G GOTO 610: & PRINT ,B$(10);Z;" ";B$(20),: & RETURN
610 IF M$(Z) = "" THEN & RETURN
615 AL% = 1
620 F = 0: & NEXT M$(Z),R: ON R = 1 GOTO 635:J = Z: & GOSUB 380: ON R = 1 GOTO 630: & PRINT = HM:MK%(Z) = 0: & END R: ON R GOTO 630,1250: IF AL% = 0 THEN & GOSUB 475
625 IF MID$ (NM$,121,1) = "1" THEN & PRINT !;B$(29);: & END R: ON R GOTO 630,1250: & GET Z$: & PRINT ,,
630 & RETURN
635 & PRINT ,B$(45),,: & RETURN
670 FOR I = 0 TO MX:L$(I) = "": NEXT :I$ = "":W$ = "":W% = 0:ED% = 0:L = 0: POKE 795,0:F = 0: PRINT FR$: POKE 813,255: & RETURN
710 & AT P,R: IF R = 1 THEN & PRINT ,"Unit is not on line!",,: GOTO 1250
711 & RETURN
715 & GOSUB 710: PRINT PF$;Z$: & RETURN
750 R = 0: FOR Z = 1 TO MM: IF MID$ (M$(Z),1,5) > MID$ (NM$,93,5) THEN R = Z:Z = MM
770 NEXT : IF R <1 THEN R = MM +1
775 IF NN% = 1 THEN IF R >MM THEN & PRINT ,B$(6),,: GOTO 1250
780 Z = R -BK%: IF Z <1 THEN Z = 1
785 IF Z >MM THEN Z = Z -1: GOTO 785
790 & RETURN
830 IF M$(Z) = "" THEN 860
840 & NOT M$(Z),R:R = VAL( MID$ (M$(Z),76,1)): IF R = 0 THEN LP = LP -1: GOTO 860
850 HP = HP -1
860 & POP MM -Z,0,M$(Z):MM = MM -1: & RETURN
900 PRINT ST$;"FIL.MSG": & RETURN
940 IF MM = HL AND AD = 1 THEN & PRINT ,B$(18),: GOTO 1060
950 X = 0
960 & FREZ: IF Z >8 AND MM <HL THEN & GOSUB 1040: & RETURN
970 IF AD = 1 THEN & PRINT ,B$(18),: GOTO 1060
980 IF X = 0 THEN & PRINT ,B$(19),
990 Z = 1
1000 IF Z >MM THEN & GOSUB 1040: & PRINT ,B$(18),: GOTO 1060
1010 IF MID$ (M$(Z),81,1) = "P" THEN Z = Z +1: GOTO 1000